home *** CD-ROM | disk | FTP | other *** search
Text File | 1988-05-26 | 372 b | 26 lines | [TEXT/KAHL] |
- pstrcat(s1, s2)
- register char *s1, *s2;
- {
- register char *p;
- register short len, i;
-
- if (*s1+*s2<=255) {
- p = *s1 + s1 + 1;
- *s1 += (len = *s2++);
- }
- else {
- *s1 = 255;
- p = s1 + 256 - (len = *s2++);
- }
- for (i=len; i; --i) *p++ = *s2++;
- }
-
- pstrcpy( s1, s2 )
- register char *s1, *s2;
- {
- register int length;
-
- for (length=*s2; length>=0; --length) *s1++=*s2++;
- }
-
-